enum {
  BEGIN=0x10000,
  PROGRAM,
  PROCEDURE,
  FUNCTION,
  VAR,
  INTEGER,
  REAL,
  IF,
  THEN,
  ELSE,
  WHILE,
  DO,
  REPEAT,
  UNTIL,
  OR,
  AND,
  NOT,
  MOD,
  DIV,
  TO,
  DOWNTO,
  GOTO,
  FOR,
  FALSE,
  CASE,
  CHAR,  
  END
};

extern iskeyword(const char *);